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FFFFFFFFFE ABALAA LL DDDDDDDD AAAAAA PPPPPPPP CCCCCCCC § RRRRRRRR cccccccc 
FFFFFFFFFF AAAAAA LL DDDDDDDD AAAAAA PPPPPPPP CCCCCCCC RRRRRRRR ccccccce 

FF AA AA LL DD DD AA AA PP PP te RR RR CC 

FF AA AA LL DD DD AA AA PP PP tt RR RR CC 

FF AA AA LL DD DD AA AA PP PP CC RR RR CC 

FF Ra AA LL DD DD AA AA PP os ee," RR RR CC 

FFFFFFFF Ab AA LL DD DD AA AA PPPPPPPP CC RRRRRRRR cc 

FFFFFFFF AA AA LL DD DD AA AA PPPPPPPP cc RRRRRRRR cc 

FF AAAAAAAAAA LL DD DD AAAAAAAAAA PP cc RR RR cc 

FF AAAAAAAAAA LL DD DD AAAAAAAAAA PP cc RR RR cc 

FF AA AA LL DD DD AA AA PP cc RR RR cc cece 
FF AA AA LL DD DD AA AA PP cc RR RR cc eoee 
FF AA AA LLLLLLLLLL DDDDDDDD AA AA PP CCCCCCCC SRR RR cccccccc eoee 
FF AA AA LLLLLLLLLL DDDDDDDD AA AA PP cccccccc RR RR cccccccc cece 
LL 1111 SSSSSSSS 

LL III111 SSSSSSSS 
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DECLARATIONS 
FALSCRC_TABLE = CRC POLYNOMIAL TABLE 
FALSCRC_LOGERR = LOG DAP CRC ERROR 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fo acchabin A gs) | ail LICENSE AND MAY BE USED AND ad be 


OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeepoRAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


: (ARRBRRRAAAARARARAAARAAERERERERERRRESASARERERERERR RR RERRRR ARR RR RR RR RRR RRR RAS SE | 
Facility: FAL (DECnet File Access Listener) 
Abstract: 


This module contains the CRC table for DAP CRC checksum computation 
plus routines related to CRC computation and error logging. 
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SOoOoooooooooooooooooo 


Environment: VAX/VMS, user mode — 
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+ Author: James A. Krycka, Creation Date: 16-JUN-1979 
+ Modified By: 

00 VO3-001 JAK0144 J A Krycka 11-APR-1984 
4 Minor cleanup. 

00 -- 
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; Include Files: 


SDAPCRCDEF 
SEVCDEF 
$F ALWRKDEF 
SIODEF 


SRAWDEF 


; Macros: 

None 
Equated Symbols: 
None 

Own Storage: 


Sete Ge Ge Oe Ge Se Se Se 


FALSGT_NODENAME : : 
-BLKB 7 


NFB_DESC: 
‘LONG §=5 
“LONG NF 
NFB:  .BYTE NF 
“LONG 0 
EVTBUF _DESC: 
.LONG 40 
“LONG EV 
EVTBUF: .BLKB 40 


EC 
AL 
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: CFAL.SRCJFALDAPCRC.MAR; 1 


SHR ,NOEXE ,RD,WRT ,SYTE 


Define DAP CRC checksum symbols 
Define event class symbols 

Define FAL work area symbols 

Define Q10 function codes 

Define Network Function Block symbols 
Define Network Management sysbols 
Define raw event record format 


FALMAIN will have stored nodename 
of partner here 


Size of NFB 
Address of NFB 
Network function block 


Length of event buffer 
Address of event buffer 
Event buffer 
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FALDAPCRC - DAP LEVEL CRC 16-SEP-19 1:40:2 AX/VMS Macro v04-00 Page 
v04-000 FALSCRC_TABLE = CRC POLYNOMIAL TABLE met te :16 ‘20 LPAL SRCJFALDAPCRC MAR: 1 . 3) 
ns 7 “BOT th FALSCRC_TABLE = CRC POLYNOMIAL TABLE 
0000 a 8 -PSECT FALSCRC_TABLE SHR,NOEXE,RD,NOWRT,LONG 

00 90 ;+ 

00 91 3 This is the CRC table for use in DAP CRC checkous computation. 

B06 3 ; The CRC polynomial function (order 16) used is 

3 oe : Xee16 + Kee15 + Kewl d + Kaew? + Kaw + Kee? + Kaw] + 1 

0 96 

a0 97 FALSCRC_TABLE:: ; CRC ig tng | table 

80800000 B98 98 «LONG DAP$K_CRC_TBLO : Table entry 0 
000053E 0 99 LONG DAPS$K_CRC_TBL1 ; Table entry 1 
0000A7 g 0008 100 LONG DAPSK_CRC_TBL¢ ; Table entry é 
QOO0F4 000c 101 «LONG DAPS$K_CRC_TBL ; Table entry 
00009087 0010 19 NG DAPS$K_CRC_TBL4 ; Table entry 4 
QOOOCE64 0014 10 - LONG rs Ba ; Table entry 5 
00003A41 0018 104 -LONG DAPS$K_CRC_TBL6 ; Table entry 6 
Q000069A2 O001C 105 «LONG DAPS$K_CRC_TBL7 ; Table entry 7 
O000E905 0020 106 LONG DAPS$K_CRC_TBL8 ; Table entry 8 
OOOOBAE6 0024 #107 LONG DAPSK_CRC_TBL9 ; Table entry 9 
QO004EC 0028 108 LONG DAPSK_CRC_TBLA ; Table entry 10 
00001D20 O9¢¢ 109 LONG DAPSK“CRC"TBLB ; Table entry 11 
00007482 0030 110 «LONG DAPS$K_CRC_TBLC ; Table entry 1 
0002761 0034 111 LONG DAP$K-CRC~TBLD ; Table entry 1 
00000344 0038 36 LONG DAPSK_CRC_TBLE ; Table entry 14 
000080A7 tas 12 LONG DAPS$K_CRC_TBLF ; Table entry 15 


m 
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04-000 = LOG DAP CRC ERROR Seer te8t BiEF8:e8 FAR/MES Hegre NOEe Oe ° 


-SBTTL FALSCRC_LOGERR - LOG DAP CRC ERROR 
-PSECT FALSCODE NOSHR,EXE,RD,NOWRT,BYTE 
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0000 
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FALSCRC_LOGERR logs DAP CRC errors to the DECnet Event Logger. 
Calling Sequence: 

BSBW FALSCRC_LOGERR 
Input Parameters: 


Oooooo or 


OOOO oCooooooooooooo°oo = 


OOOO CCOCOCCOCOCCOOOOCOOOOOOCOOoOO 


OOooooo 
OOCOCCOOOOOCOOO rac 


R8 FAL work area address 
Implicit Inputs: 
FALSW_LNKCHN 
Output Parameters: 
None 
Implicit Outputs: 
None 
Completion Codes: 
None 
Side Effects: 


An attempt is made to log a DAP CRC error to the DEC et Event Logger. 
Return status of the request is neither checked nor returned. 
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COOOCCOSCOCSCOOCSOSOOOCOOOOSOOSOOOSOOSOOSOOOSOSOOSOOOOSOOOO SCO OOOO OOOCOOS 


FALSCRC_LOGERR:: :; Entry point 
3F =O sé 6 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save registers 
; Build message in the event buffer. 
55 OO1C'CF 9 MOVA W*EVTBUF ,R5 ; Get address of event buffer 
22 81 000 ADDB #WRAWST DATA+4,- ; Byte count for event 
50 0000'CF 009 W*F ALSGT_NODENAME ,RO ; 
50 98 000D MOVZBW RO,(R5)+ ; Put event count in event buffer 
0014°CF 50 QA 001 MOVZBL_ RO,W*EVTBUF_DESC ; Update the event buffer descriptor 
4 $SGETTIM_S - ; Get the system time 
1 TIMADR=(R5) ; Put time in the event buffer 
33 8 C8 Bie ADDL2 #8,R ; Bump the event buffer pointer 
85 001 8F 8B 1 MOV #EVCSC_VMS_DPC,(R5)+ ; Put in the event code 
85 FF 8F 90 6 MOVB + CS$C_SRC_NON, (R5)+ ; Put in the source type 
> ee C8 A ADDL2 #17,R ; Skip source ID field 
85 00 8B D MOVW  #EVCSC_VMS_PNOD,(R5)+ : Remote node name 


4 
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FALDAPCRC = DAP LEVEL CRC 1 mi iat tt 1:40:28 ree: Macro V04-00 Page 5 
v04-000 FALSCRC_LOGERR = LOG DAP CRC ERROR “SEP-1984 01:16:4 FAL.SRCJFALDAPCRC.MAR; 1 (4) 
85 40 BF 90 0 173 MOVB #NMASM_PTY_ASC,(R5)+ ; Data type 
54 OO'CR 9 4 17% MOVAB W*FALSGT_NODENAME,R4  ; Get the address of the nodename 
66 9 9 175 MOVB (R4), (RST+ ; Put in the nodename count 
96 9A C 178 sald ( ; Get nodename count as a longword 
65 O1A4 50 28 03 7 move . RO, 1(R4), (RS) : Put in the nodename 
Soee 179 “ CHAN=FALSW_LNKCHN(R8)= ; Use already assigned channel 
0044 180 FUNC=#10$_ACPCONTROL= ; Function code 
0044 181 PI=NFB_DESC- ; Address of descriptor of NFB 
sees ¢ P2=#EVTBUF _DESC ; Address of descriptor of event buffer 
6 184 ; 

Soe 185 ; Do not bother to check the return status since we wish to preserve the 
006 1 § ; original DAP CRC error status in RO (and not the success or failure of our 
Boe 187 ; attempt to log it). 
bos 189° 

3F) Sse Bee 190 POPR #*°M<RO,R1,R2,R3,R4,R5> ; Restore registers 

05 Q06A 191 RSB * Return with status on entry 

0068 136 ‘ 
0068 19 «END ; End or module 
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FALDAPCRC - DAP LEVEL CRC 19360-1388 B1:40:49 rte: Macro V04-00 Page 7 
Symbol table -SEP-1984 01:16:4 FAL.SROJFALDAPCRC.MAR;1 (4) 
SYSSGETTIM teereere 6X 04 
SYS$Q10 eeeeeeee 6X 4 

¢eeeoceevree se snes as th 

: Psect synopsis : 

pew nmaon ocr momnmcee > 
PSECT name Allocation PSECT No. Attributes 
» OS 00000000 < g- 0¢( 0.) NOPIC USR CON ABS - LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
FALSDATA 0 Boh Ce ( 68.) 1¢( 1.) NOPIC USR CON REL LCL SHR NOEXE' RD WRT NOVEC BYTE 
ABS 4h 00 ¢ 8192.) ¢ ( ¢°} NOPIC USR CON ABS -~ LCL NOSHR x R WRT NOVEC BYTE 
FALSCRC_ TABLE 040 ( 63) ( -) NOPIC USR CON REL LCL SHR NOEXE RD NOWRT NOVEC LONG 
FALSCODE 00000068 (¢ 107.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 

pm re wens om me aeons weaeemacaa > 
: Performance indicators H 

Phase Page faults CPU Time Elaosed Time 
Initialization 29 08:00:00 08 00:00:02.41 
Syren. $y BRSRRIR a 9898 
ass 7:00:13. :00:52. 
Symbol table sort B88: 04 97 $0 :00:05.39 
Pass 4 00:00:01.91 00:00:03.19 
Symbol table output 14 00:00:00.07 00:00:00.12 
Psect synopsis output 3 00:00:00.02 00:00:00.03 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 759 00:00:17.88 00:01:09.89 


The working set Limit was 1950 pages. , 

103965 bytes (204 pages) of virtual memory were used to buffer the intermediate code. 

There were 120 pages of symbol table space allocated to hold 2215 non-local and 0 local symbols. 
193 source Lines were read in Pass 1, producing 17 object records in Pass 2 

19 pages of virtual memory were used to define 18 macros. 


Macro library name Macros defined 
-8255$DUA e: SYS.OBJILIB 
~$255$DUA28: CSHRLIB 
$255$DUA28: CSHRLIB 5 
$255$DUA28: AMET 
:CSYSLIB 


z2ror 


vc 
~ FA 
$255$DUA28 STA : 
TOTALS (all Libraries) 1 


2394 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:FALDAPCRC/OBJ=OBJ$:FALDAPCRC MSRC$:FALDAPCRC/UPDATE=(ENHS$: Ff ALDAPCRC) +L1B$:FAL/LIB+SHRLIBS:EVCDEF /L1B+SHRLIBS:NMAL IBRY 


ON 
Y 


ir fh 'BT13A- ae L EQUIPMENT CORPOR 


ATI 
AX/VMS V4.0 , oe } ENTIAL: AND PROPRIETAR 


